DropTypeSet = SET OF DropTypes; | default DragDrop calls TableReplace
TableGroupTags = TAGS OF MuiTags
tableCellHorizWeight = $F9F8010F : LONGCARD; | V1 isg horizontal weight of the current (empty) cell
tableCellVertWeight = $F9F8010E : LONGCARD; | V1 isg vertical weight of the current (empty) cell
tableColumn = $F9F80101 : LONGCARD; | V1 isg place next child in this column or ask for the column an object was dropped on
tableColumns = $F9F8010C : LONGCARD; | V1 i.g number of columns to be reserved
tableColumnSpace = $F9F80109 : LONGCARD; | V1 isg keep n characters of current font distance to the right column; if integer numbers aren't enough, denominator tags could be added in future
tableColumnSpan = $F9F80103 : LONGCARD; | V1 isg use space of the next n cells down from here for the next child
tableColumnWeight = $F9F80113 : LONGCARD; | V1 i.g horizontal weight of the current column
tableDropType = $F9F80108 : DropTypeSet; | V1 isg specify possible drop positions (horizontal, vertical for between cells; column, row for cells itself) or ask where an object was dropped
tableEmptyCells = $F9F8010D : LONGCARD; | V1 is. insert n empty cells
tableError = $F9F80114 : Errors; | V1 ..g find out the error which occurs since last question
tableFind = $F9F80117 : AreaObject; | V1 is. find the cell the object is in
tableGrowsTo = $F9F80107 : Directions; | V1 isg direction in which the table will be extended if necessary; implies the placing order: down means placing from left to right and from top to bottom
tableNextColumn = $F9F80111 : LONGCARD; | V1 is. place next child in this column, do not replace anything but extend table if necessary
tableNextRow = $F9F80110 : LONGCARD; | V1 is. place next child in this row, do not replace anything but extend table if necessary
tableRow = $F9F80100 : LONGCARD; | V1 isg place next child in this row or ask for the row an object was dropped on
tableRows = $F9F8010B : LONGCARD; | V1 i.g number of rows to be reserved
tableRowSpace = $F9F8010A : LONGCARD; | V1 isg keep n characters of current font distance to the row below; if integer numbers aren't enough, denominator tags could be added in future
tableRowSpan = $F9F80102 : LONGCARD; | V1 isg use space of the next n cells right from here for the next child
tableRowWeight = $F9F80112 : LONGCARD; | V1 i.g vertical weight of the current column
tableSkipColumns = $F9F80116 : LONGINT; | V1 is. skip n columns (n maybe < 0) and make it the current
tableSkipRows = $F9F80115 : LONGINT; | V1 is. skip n rows (n maybe < 0) and make it the current
END;
TableGroupTagAPtr = POINTER TO TableGroupTagA;
TableGroupTagA = ARRAY OF TableGroupTags;
| all tags changing appearance require mInitChange/mExitChange
| do not use groupColumns, groupRows but tableColumns, tableRows
| use groupChild to add new childs or
| to get the object placed at the current position